(defvar use-black-background t)

(defun base-face-settings ()
  "Base face settings."
  (set-face-foreground 'highlight "red")
  (set-face-background 'highlight "blue")

  (custom-set-faces
   '(region
     ((((class color) (min-colors 88) (background dark))
       :background "grey12")
      (((class color) (min-colors 88) (background light))
       :background "grey8")
      (((class color) (min-colors 16) (background dark))
       :background "wheat")
      (((class color) (min-colors 16) (background light))
       :background "lightgoldenrod2")
      (((class color) (min-colors 8)) :background "blue" :foreground "red")
      (((type tty) (class mono)) :inverse-video t)
      (t :background "gray"))))

   (if use-black-background
      (progn
        (set-background-color "black")
        (set-foreground-color "white")
        (set-cursor-color "turquoise4"))
    (set-background-color "white")
    (set-foreground-color "black")
    (set-cursor-color "turquoise4")))

(eval-after-load "faces"
  `(base-face-settings))

(provide 'basic-face-settings)